home *** CD-ROM | disk | FTP | other *** search
/ PC Electronics Plus 3 / PC Electronics Plus 3.iso / pads / psheader.dat < prev    next >
Text File  |  1992-04-30  |  10KB  |  468 lines
  1. %!PS-Adobe-2.0
  2. %%Title: PADS Postscript Driver Header
  3. %%Creator: Andy Montalvo, 18 Lupine St., Lowell, MA  01851
  4. %%CreationDate: 06/08/90
  5. %%For: CAD Software, Littleton, MA
  6. %%EndComments
  7. %%BeginProcSet: Markers 1.0 0
  8. % marker attributes
  9. /MAttr_Width 1 def
  10. /MAttr_Size  0 def
  11. /MAttr_Type /M1 def
  12. % procedures
  13. /M1 { %def
  14. % draw marker 1: plus
  15. % Stack: - M1 -
  16.     -2 0 rmoveto
  17.     4 0 rlineto
  18.     -2 2 rmoveto
  19.     0 -4 rlineto
  20. } bind def
  21. /M2 { %def
  22. % draw marker 2: cross
  23. % Stack: - M2 -
  24.     -2 -2 rmoveto
  25.     4 4 rlineto
  26.     -4 0 rmoveto
  27.     4 -4 rlineto
  28. } bind def
  29. /M3 { %def
  30. % draw marker 3: square
  31. % Stack: - M3 -
  32.     0 2 rlineto
  33.     2 0 rlineto
  34.     0 -4 rlineto
  35.     -4 0 rlineto
  36.     0 4 rlineto
  37.     2 0 rlineto
  38. } bind def
  39. /M4 { %def
  40. % draw marker 4: diamond
  41. % Stack: - M4 -
  42.     0 2 rlineto
  43.     2 -2 rlineto
  44.     -2 -2 rlineto
  45.     -2 2 rlineto
  46.     2 2 rlineto
  47. } bind def
  48. /M5 { %def
  49. % draw marker 5: hourglass
  50. % Stack: - M5 -
  51.     2 2 rlineto
  52.     -4 0 rlineto
  53.     4 -4 rlineto
  54.     -4 0 rlineto
  55.     2 2 rlineto
  56. } bind def
  57. /M6 { %def
  58. % draw marker 6: bowtie
  59. % Stack: - M6 -
  60.     2 2 rlineto
  61.     0 -4 rlineto
  62.     -4 4 rlineto
  63.     0 -4 rlineto
  64.     2 2 rlineto
  65. } bind def
  66. /M7 { %def
  67. % draw marker 7: plus (goes with char marker)
  68. % Stack: - M7 -
  69.     -2 0 rmoveto
  70.     4 0 rlineto
  71.     -2 2 rmoveto
  72.     0 -4 rlineto
  73. } bind def
  74. /Marker { %def
  75. % Command from driver: draw marker
  76. % STACK: x y Marker -
  77.     MAttr_Size 0 gt
  78.     {
  79.         gsave
  80.         moveto
  81.         MAttr_Size 4 div dup scale
  82.         MAttr_Type load exec
  83.         4 MAttr_Size div dup scale
  84.         MAttr_Width setlinewidth
  85.         stroke
  86.         grestore
  87.     } if
  88. } def
  89. %%EndProcSet: Markers 1.0 0
  90. %%BeginProcSet: Lib 1.0 0
  91. /sg { %def
  92. % Command from driver: set the gray scale 0 - 100
  93. % STACK: greylevel sg
  94.     100 div dup setgray /glev exch def
  95. } bind def
  96. /Circle { %def
  97. % draw a circle
  98. % STACK: x y radius Circle -
  99.     0 360 arc
  100. } bind def
  101. /RndAper { %def
  102. % select a round aperture
  103. % STACK: - RndAper -
  104.     1 setlinejoin
  105.     1 setlinecap
  106. } bind def
  107. /SqrAper { %def
  108. % select a square aperture
  109. % STACK: - SqrAper -
  110.     0 setlinejoin
  111.     2 setlinecap
  112. } bind def
  113. /Line { %def
  114. % draw a set of connected lines
  115. % STACK: x1 y1 [ x2 y2 ... xn yn ] Line -
  116.     3 1 roll
  117.     moveto
  118.     true
  119.     exch
  120.     % This pushes the x then the y then does lineto
  121.     { exch  { false } { lineto true } ifelse } forall
  122.     pop
  123. } bind def
  124. /Clipto { %def
  125. % set clipping rectangle from 0,0 to new values
  126. % STACK: x y Clipto -
  127.     0 0 moveto
  128.     dup 0 exch lineto
  129.     2 copy lineto
  130.     pop
  131.     0 lineto
  132.     closepath
  133.     clip
  134.     newpath
  135. } bind def
  136. /Clip4 { %def
  137. % set clipping rectangle from xmin,ymin to xmax,ymax
  138. % STACK: xmin ymin xmax ymax Clip4 -
  139.     4 copy pop pop moveto
  140.     4 copy pop exch lineto pop
  141.     2 copy lineto
  142.     exch pop exch pop lineto
  143.     closepath
  144.     clip
  145.     newpath
  146. } bind def
  147. %%EndProcSet: Lib 1.0 0
  148. %%BeginProcSet: Lines 1.0 0
  149. % line attributes %
  150. /LAttr_Width 1 def
  151. % line procedures
  152. /PLine { %def
  153. % Cammand from driver: draw a set of connected lines
  154. % STACK: x1 y1 [ x2 y2 ... xn yn ] PLine -
  155.     Line
  156.     LAttr_Width setlinewidth
  157.     stroke
  158. } bind def % PLine
  159. /Char { %def
  160. % Command from driver: draw a character at the current position
  161. % STACK: type x y stroke_array Char -
  162. %    stroke array -- [ stroke1 stroke2 ... stroken ]
  163. %    stroke -- connected staight lines
  164. %    type = 0 if text  1 if marker
  165.     gsave
  166.     4 1 roll
  167.     translate
  168.     0 eq { TAttr_Width } { MAttr_Width } ifelse setlinewidth
  169.     {
  170.         dup length 2 gt
  171.         {
  172.             dup dup 0 get exch 1 get % get starting point
  173.             3 -1 roll                % put x y before array
  174.             dup length 2 sub 2 exch getinterval % delete first items from array
  175.             Line
  176.             stroke
  177.         }
  178.         {
  179.             aload pop currentlinewidth 2 div Circle fill
  180.         } ifelse
  181.     } forall
  182.     grestore
  183. } bind def % Char
  184. /PArc { %def
  185. % Command from driver: draw an arc
  186. % STACK: x y radius startangle deltaangle Arc -
  187.      10 div exch 10 div exch
  188.     2 copy pop add
  189.     arc
  190.     LAttr_Width setlinewidth
  191.     stroke
  192. } bind def
  193. /PCircle { %def
  194. % Command from driver: draw an circle
  195. % STACK: x y radius PCircle -
  196.     Circle
  197.     LAttr_Width setlinewidth
  198.     stroke
  199. } bind def
  200. %%EndProcSet: Lines 1.0 0
  201. %%BeginProcSet: Polygon 1.0 0
  202. % polygon attributes %
  203. /PAttr_ExtWidth 1 def
  204. /PAttr_IntWidth 1 def
  205. /PAttr_Grid 1 def
  206. % polygon procedures
  207. /LoopSet { %def
  208. % set up for loop condition
  209. % STACK: start end LoopSet low gridwidth high
  210.     2 copy lt { exch } if
  211.     % make grid line up to absolute coordinates
  212.     PAttr_Grid div truncate PAttr_Grid mul exch
  213.     PAttr_Grid exch
  214. } bind def
  215. /Hatch { %def
  216. % draw cross hatch pattern in current path
  217. % STACK: - Hatch -
  218.     pathbbox
  219.     /ury exch def
  220.     /urx exch def
  221.     /lly exch def
  222.     /llx exch def
  223.     clip
  224.     newpath
  225.     llx urx LoopSet
  226.     { % x loop
  227.         dup lly exch ury moveto lineto
  228.     } for
  229.     lly ury LoopSet
  230.     { % y loop
  231.         llx exch dup urx exch moveto lineto
  232.     } for
  233.     PAttr_IntWidth setlinewidth
  234.     stroke
  235. } bind def
  236. /PPoly { %def
  237. % Command from driver: draw a polygon
  238. % STACK: x1 y1 [ x2 y2 ... xn yn ] PLine -
  239.     Line
  240.     closepath
  241.     gsave
  242.     PAttr_IntWidth PAttr_Grid ge {fill} {Hatch} ifelse
  243.     grestore
  244.     PAttr_ExtWidth setlinewidth
  245.     stroke
  246. } bind def
  247. /DPoly { %def
  248. % Command from driver: draw a polygon defined by current path
  249. % STACK: - DPoly -
  250.     closepath
  251.     gsave
  252.     PAttr_IntWidth PAttr_Grid ge {fill} {Hatch} ifelse
  253.     grestore
  254.     PAttr_ExtWidth setlinewidth
  255.     stroke
  256. } bind def
  257. %%EndProcSet: Polygon 1.0 0
  258. %%BeginProcSet: Text 1.0 0
  259. % text attributes %
  260. /TAttr_Mirr 0 def
  261. /TAttr_Orient 0 def
  262. /TAttr_Width 1 def
  263. % text procedures
  264. /Text { %def
  265. % Command from driver: Draw text
  266. % STACK: x y width string Text -
  267.     gsave
  268.     4 2 roll
  269.     translate
  270.     TAttr_Mirr 0 gt
  271.     {
  272.         -1 1 scale
  273.     } if
  274.     TAttr_Orient rotate
  275.     0 0 moveto
  276.     dup length dup 1 gt
  277.     {
  278.         exch dup stringwidth pop
  279.         4 -1 roll
  280.         exch 2 copy
  281.         lt
  282.         {
  283.             div 1 scale show
  284.             pop
  285.         }
  286.         {
  287.             sub
  288.             3 -1 roll 1 sub div
  289.             0 3 -1 roll ashow
  290.         }
  291.         ifelse
  292.     }
  293.     {
  294.         pop
  295.         show
  296.         pop
  297.     } ifelse
  298.     grestore
  299. } bind def
  300. %%EndProcSet: Text 1.0 0
  301. %%BeginProcSet: FlashSymbols 1.0 0
  302. % flash symbol attributes %
  303. /FAttr_Type /PRndPad def
  304. /FAttr_Width  0 def
  305. /FAttr_Length 1 def
  306. /FAttr_Orient 0 def
  307. % flash symbol procedures
  308. /PRndPad { %def
  309. % Command from driver: draw an circular pad
  310. % STACK: - PCirclePad -
  311.     FAttr_Width dup scale
  312.     0 0 .5 Circle
  313.     fill
  314. } bind def
  315. /PSqrPad { %def
  316. % Draw an Square pad
  317. % STACK: - PRectPad -
  318.     FAttr_Width dup scale
  319.     .5 .5 moveto
  320.     -.5 .5 lineto
  321.     -.5 -.5 lineto
  322.     .5 -.5 lineto
  323.     closepath
  324.     fill
  325. } bind def
  326. /PRectPad { %def
  327. % Draw an rectangular pad
  328. % STACK: - PRectPad -
  329.     FAttr_Length FAttr_Width scale
  330.     .5 .5 moveto
  331.     -.5 .5 lineto
  332.     -.5 -.5 lineto
  333.     .5 -.5 lineto
  334.     closepath
  335.     fill
  336. } bind def
  337. /POvalPad { %def
  338. % Draw an oval pad
  339. % STACK: - POvalPad -
  340.     FAttr_Width setlinewidth
  341.     FAttr_Length FAttr_Width sub 2 div dup
  342.     neg 0 moveto
  343.     0 lineto
  344.     RndAper
  345.     stroke
  346. } bind def
  347. /Anl { %def
  348.     0 0 .5 Circle
  349.     fill
  350.     FAttr_Length FAttr_Width lt
  351.     { % inner circle
  352.         0 0
  353.         FAttr_Length 0 gt { FAttr_Length FAttr_Width div } { .5 } ifelse
  354.         2 div Circle
  355.         1 setgray
  356.         fill
  357.         glev setgray
  358.     } if
  359. } bind def
  360. /PAnlPad { %def
  361. % Draw an annular pad
  362. % STACK: - PAnlPad -
  363.     FAttr_Width dup scale
  364.     Anl
  365. } bind def
  366. /PRelPad { %def
  367. % Draw an thermal relief pad
  368. % STACK: - PRelPad -
  369.     PAnlPad
  370.     1 setgray
  371.     .17 setlinewidth
  372.     0 setlinecap   % the x
  373.     45 rotate
  374.     .5 0 moveto -.5 0 lineto
  375.     0 .5 moveto  0 -.5 lineto
  376.     stroke
  377.     glev setgray
  378. } bind def
  379. /Flash { %def
  380. % Command from driver: Flash a symbol
  381. % STACK: x y Flash -
  382.     FAttr_Width 0 gt
  383.     {
  384.         gsave
  385.         translate
  386.         FAttr_Orient rotate
  387.         FAttr_Type load exec
  388.         grestore
  389.     } if
  390. } def
  391. %%EndProcSet: FlashSymbols 1.0 0
  392. %%BeginProcSet: SetAttr 1.0 0
  393. /SetLine { %def
  394. % Set the width of the lines
  395. % STACK: linewidth SetLine -
  396.     /LAttr_Width exch def
  397.     RndAper
  398. } bind def
  399. /SetPoly { %def
  400. % Set attribute of polygon
  401. % STACK: external_width internal_grid_width grid_spacing SetPoly -
  402.     /PAttr_Grid exch def
  403.     /PAttr_IntWidth exch def
  404.     /PAttr_ExtWidth exch def
  405.     RndAper
  406. } bind def
  407. /SetFlash { %def
  408. % Set Attributed of flash pad
  409. % STACK: orientation_angle length width aperture_type SetFlash -
  410.     /FAttr_Type exch def
  411.     FAttr_Type /PSqrPad eq FAttr_Type /PRectPad eq or
  412.     { SqrAper } { RndAper } ifelse
  413.     /FAttr_Width exch def
  414.     /FAttr_Length exch def
  415.     /FAttr_Orient exch 10 div def
  416. } bind def
  417. /SetMkr { %def
  418. % Set attributes of markers
  419. % STACK: linewidth size type SetMkr -
  420.     /MAttr_Type exch def
  421.     /MAttr_Size exch def
  422.     /MAttr_Width exch def
  423.     RndAper
  424. } bind def
  425. /SetText1 { %def
  426. % Set attributes of text
  427. % STACK: fontname height orient mirror SetMkr -
  428.     /TAttr_Mirr exch def
  429.     /TAttr_Orient exch 10 div def
  430.     exch findfont exch scalefont setfont
  431.     RndAper
  432. } bind def
  433. /SetText2 { %def
  434. % Set attributes of text
  435. % STACK: linewidth height mirror orient SetMkr -
  436.     /TAttr_Width exch def
  437.     RndAper
  438. } bind def
  439. %%EndProcSet: SetAttr 1.0 0
  440. %%BeginProcSet: Initialize 1.0 0
  441. /Init { %def
  442. % Initialize the driver
  443. % STACK: Init -
  444.     72 1000 div dup scale % Scale to 1/1000 inch
  445.     250 250 translate     % make origin 1/4 inch from bottom left
  446.     1.5 setmiterlimit 1 RndAper                     % set line defaults
  447.     0 setgray                                       % set color default
  448.     /glev 0 def
  449. } def
  450. /VMSave { %def
  451. % Save the current state of VM
  452. % STACK: VMSave -
  453.     /VMState save def
  454. } def
  455. /VMRest { %def
  456. % Restore the saved state of VM
  457. % STACK: VMRest -
  458.     VMState restore
  459. } def
  460. /VMFlush { %def
  461. % Flush accumulated junk in VM
  462. % STACK: VMFlush -
  463.     VMRest
  464.     VMSave
  465. } def
  466. %%EndProcSet: Initialize 1.0 0
  467. %%EndProlog
  468.